! program main
!     implicit none
!     integer:: a=1,b=2
!     call message()                   ! 调用子程序
!     call add(a,b)
! end program main

! subroutine message()
!     implicit none                    ! 在内部还要禁用默认变量类型规则
!     write(*, *) "hello, message"
!     return                           ! 可以省略
! end

! subroutine add(first, second)
!     implicit none                    ! 在内部还要禁用默认变量类型规则
!     integer :: first, second         ! 在内部还要声明变量类型
!     write(*,"(I1)") first + second
!     return                           
! end
